VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmVendorSwitch 
   Caption         =   "Vendor Switch Information"
   ClientHeight    =   17200
   ClientLeft      =   -38400
   ClientTop       =   -25080
   ClientWidth     =   36000
   OleObjectBlob   =   "frmVendorSwitch.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmVendorSwitch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Written by Jalisa Greene'
'Last Modified by Jalisa Greene
'Last Modified 6/10/2014

Option Explicit 'must declare variables'
Dim LocID As Integer 'global location id variable'
Dim rowNum As Integer

Private Sub UserForm_Initialize()
'**ACTION SUB THAT RUNS WHEN USER OPENS FORM

Dim loc As Range
'Add each location to the locations box'
For Each loc In Worksheets("INV").Range("locations")
    If loc <> "" Then cmbLocations.AddItem (loc.Value)
Next

'**SET SCROLLWIDTH**
Me.ScrollWidth = Me.InsideWidth * 1.5
Call InsertPicklists
End Sub

Private Sub InsertPicklists()
'**INSERT DROPDOWN VALUES FOR PICKLISTS ALL ACROSS FORM**'
Dim aCell As Range
    
    'Insert Container Types into picklists'
    For Each aCell In Worksheets("Pick Lists").Range("B3:B9")
        txt1ContainType.AddItem (aCell.Value)
    Next
    
    'Insert types of waste into the picklists'
    For Each aCell In Worksheets("Pick Lists").Range("F3:F9")
        txt1TypeWaste.AddItem (aCell.Value)
        cmb4TypeWaste.AddItem (aCell.Value)
    Next
    
    'Insert Measurements into the picklists'
    For Each aCell In Worksheets("Pick Lists").Range("D3:D5")
        txt1Mes.AddItem (aCell.Value)
        cmb4Mes.AddItem (aCell.Value)
    Next
    
    'Insert Contracts into the picklists'
    For Each aCell In Worksheets("Contract Data").Range("C10:C1000")
        If aCell.Value <> "" Then cmb4Contract.AddItem (aCell.Value)
    Next
    
End Sub

Private Sub cmbLocations_Change()
'**ACTION SUB THAT RUNS WHEN USER CHANGES LOCATION VALUE**'
On Error GoTo ErrorResume:

    LocID = cmbLocations.Value
    'add each container for a selected location'
    Call InsertContainers
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertContainers()
'**INSERTS CONTAINER IDS INTO DROPDOWN FOR THE LOCATION SELECTED**'
cmbContainers.Clear

'Insert Container 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 27, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 55, False))
'Insert Container 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 79, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 107, False))
'Insert Container 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 131, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 159, False))
'Insert Container 4'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 183, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 211, False))
'Insert Container 5'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 235, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 263, False))
'Insert Container 6/ Compactor 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 287, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 321, False))
'Insert Container 7/ Compactor 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 339, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 373, False))
'Insert Container 8/ Compactor 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 391, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 425, False))

End Sub

Private Sub cmbContainers_Change()
'**ACTION SUB THAT RUNS WHEN USER SELECTS A CONTAINER.**'

'**SETS EXTRA FIELDS FOR COMPACTORS AS HIDDEN (UNHIDE LATER WHEN NECCESSARY)**'
    lbl1FlatHaul.Visible = False
    txt1FlatHaul.Visible = False
    lbl1FlatDisposal.Visible = False
    txt1FlatDisposal.Visible = False
    lbl1WeightPerHaul.Visible = False
    txt1WeightPerHaul.Visible = False
    lbl1HaulsPerMonth.Visible = False
    txt1HaulsPerMonth.Visible = False
    lbl1QuanPerMonth.Visible = False
    txt1QuanPerMonth.Visible = False
    lbl1MaxWeight.Visible = False
    txt1MaxWeight.Visible = False
    lbl2FlatHaul.Visible = False
    txt2FlatHaul.Visible = False
    lbl2FlatDisposal.Visible = False
    txt2FlatDisposal.Visible = False
    lblBillingCorr.BackStyle = fmBackStyleTransparent
    lblRateRed.BackStyle = fmBackStyleTransparent
    
    '**NEXT ACTION, FIND WHICH CONTAINER WE ARE USING**'
    Call FindContainerData
    
End Sub

Private Sub btnCancel_Click()
frmVendorSwitch.Hide

End Sub

Private Sub FindContainerData()
'**SUB TO FIND WHICH CONTAINER NUMBER WE ARE USING FOR THIS LOCATION**'
    Dim containNum As Integer
    

'if the vendor for billing corrections is not empty, change the background so it will stand out
'if the vendor for rate reductions is not empty, change the background so it will stand out
On Error GoTo ErrorResume:

    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        containNum = 1
        If Worksheets("ASR").Range("UG" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("AEZ" & rowNum) <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        containNum = 2
        If Worksheets("ASR").Range("VN" & rowNum).Value <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("AGG" & rowNum).Value <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        containNum = 3
        If Worksheets("ASR").Range("WU" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("AHN" & rowNum) <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        containNum = 4
        If Worksheets("ASR").Range("YB" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("AIU" & rowNum) <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        containNum = 5
        If Worksheets("ASR").Range("ZI" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("AKB" & rowNum) <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        containNum = 6
        If Worksheets("ASR").Range("AAP" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("ALI" & rowNum) <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        containNum = 7
        If Worksheets("ASR").Range("ACB" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("AMU" & rowNum) <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        containNum = 8
        If Worksheets("ASR").Range("ADN" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
        If Worksheets("ASR").Range("AOG" & rowNum) <> "" Then lblRateRed.BackStyle = fmBackStyleOpaque
    End If
    
    '**NEXT ACTION, INSERT DATA**'
    Call InsertContainerData(containNum)
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub


Private Sub InsertContainerData(containNum As Integer)
    'INSERT CURRENT SPEND, BILLING CORRECTIONS, RATE REDUCTIONS**'
    '**IF WE HAVE VENDOR SWITCH ALREADY IN, INSERT IT, ELSE INSERT THE AUTOINPUT**'
    
    If containNum = 1 Then
        Call InsertContain1
        Call InsertContain1Corrections
        Call InsertContain1Reductions
        If Worksheets("ASR").Range("APS" & rowNum).Value <> "" Then
            Call InsertContain1Switch
        Else:
            Call InsertContain1AutoInput
        End If
    ElseIf containNum = 2 Then
        Call InsertContain2
        Call InsertContain2Corrections
        Call InsertContain2Reductions
        If Worksheets("ASR").Range("AQZ" & rowNum).Value <> "" Then
            Call InsertContain2Switch
        Else:
            Call InsertContain2AutoInput
        End If
    ElseIf containNum = 3 Then
        Call InsertContain3
        Call InsertContain3Corrections
        Call InsertContain3Reductions
        If Worksheets("ASR").Range("ASG" & rowNum).Value <> "" Then
            Call InsertContain3Switch
        Else:
            Call InsertContain3AutoInput
        End If
    ElseIf containNum = 4 Then
        Call InsertContain4
        Call InsertContain4Corrections
        Call InsertContain4Reductions
        If Worksheets("ASR").Range("ATN" & rowNum).Value <> "" Then
            Call InsertContain4Switch
        Else:
            Call InsertContain4AutoInput
        End If
    ElseIf containNum = 5 Then
        Call InsertContain5
        Call InsertContain5Corrections
        Call InsertContain5Reductions
        If Worksheets("ASR").Range("AUU" & rowNum).Value <> "" Then
            Call InsertContain5Switch
        Else:
            Call InsertContain5AutoInput
        End If
    ElseIf containNum = 6 Then
        Call InsertContain6
        Call InsertContain6Corrections
        Call InsertContain6Reductions
        If Worksheets("ASR").Range("AWB" & rowNum).Value <> "" Then
            Call InsertContain6Switch
        Else:
            Call InsertContain6AutoInput
        End If
    ElseIf containNum = 7 Then
        Call InsertContain7
        Call InsertContain7Corrections
        Call InsertContain7Reductions
        If Worksheets("ASR").Range("AXN" & rowNum).Value <> "" Then
            Call InsertContain7Switch
        Else:
            Call InsertContain7AutoInput
        End If
    ElseIf containNum = 8 Then
        Call InsertContain8
        Call InsertContain8Corrections
        Call InsertContain8Reductions
        If Worksheets("ASR").Range("AYZ" & rowNum).Value <> "" Then
            Call InsertContain8Switch
        Else:
            Call InsertContain8AutoInput
        End If
    End If

End Sub
Private Sub InsertContain1()

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 27, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 33, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 29, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 30, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 31, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 32, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 34, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 35, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 35, False)
    Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 41, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 42, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 43, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 44, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 45, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 46, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 47, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 48, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 49, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 50, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 51, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 52, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 53, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 58, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 59, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 60, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 61, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 62, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 54, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 54, False), "Currency")
    Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain2()
    'Insert Container 2 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 79, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 81, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 82, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 83, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 84, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 85, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 86, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 87, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 87, False)
        Else: txt1YdsPerWeek.Text = ""
    End If

    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 93, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 94, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 95, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 96, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 97, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 98, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 99, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 100, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 101, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 102, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 103, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 104, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 105, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 110, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 111, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 112, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 113, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 114, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 106, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 106, False), "Currency")
        Else: txt1MonSpend.Value = ""
    End If
End Sub

Private Sub InsertContain3()
'Insert Current Spend from Container 3'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 131, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 133, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 134, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 135, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 136, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 137, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 138, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 139, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 139, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 145, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 146, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 147, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 148, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 149, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 150, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 151, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 152, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 153, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 154, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 155, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 156, False)
    txt1FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 157, False)
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 162, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 163, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 164, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 165, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 166, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 158, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 158, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain4()
'Insert Container 4 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 183, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 185, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 186, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 187, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 188, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 189, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 190, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 191, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 191, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 197, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 198, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 199, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 200, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 201, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 202, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 203, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 204, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 205, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 206, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 207, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 208, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 209, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 214, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 215, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 216, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 217, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 218, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 210, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 210, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain5()
'Insert Container 5 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 235, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 237, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 238, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 239, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 240, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 241, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 242, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 243, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 243, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 249, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 250, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 251, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 252, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 253, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 254, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 255, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 256, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 257, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 258, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 259, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 260, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 261, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 266, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 267, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 268, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 269, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 270, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 262, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 262, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain6()
'Insert Container 6 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 287, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 289, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 290, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 291, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 292, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 293, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 294, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 295, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 295, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 296, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 297, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 298, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 299, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 300, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 301, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 307, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 308, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 309, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 310, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 311, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 312, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 313, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 314, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 315, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 316, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 317, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 318, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 319, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 324, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 325, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 326, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 327, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 328, False)

    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 320, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 320, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If

End Sub

Private Sub InsertContain7()
    'Insert Container 7 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 339, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 341, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 342, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 343, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 344, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 345, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 346, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 347, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 347, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 348, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 349, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 350, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 351, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 352, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 353, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 359, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 360, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 361, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 362, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 363, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 364, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 365, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 366, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 367, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 368, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 369, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 370, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 371, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 376, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 377, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 378, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 379, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 380, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 372, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 372, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain8()
'Insert Container 8 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 391, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 393, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 394, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 395, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 396, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 397, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 398, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 399, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 399, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 400, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 401, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 402, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 403, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 404, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 405, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 411, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 412, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 413, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 414, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 415, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 416, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 417, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 418, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 419, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 420, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 421, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 422, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 423, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 428, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 429, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 430, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 431, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 432, False)

    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 424, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 424, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If


End Sub

Private Sub InsertContain1Corrections()
'Insert Current Information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 560, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 561, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 562, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 563, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 564, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 566, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 567, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 569, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 570, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 572, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 573, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 575, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 576, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 565, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 568, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 571, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 574, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 577, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 578, False), "Currency")
End Sub

Private Sub InsertContain2Corrections()
    'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 593, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 594, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 595, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 596, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 597, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 599, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 600, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 602, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 603, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 605, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 606, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 608, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 609, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 598, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 601, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 604, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 607, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 610, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 611, False), "Currency")
End Sub

Private Sub InsertContain3Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 626, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 627, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 628, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 629, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 630, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 632, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 633, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 635, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 636, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 638, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 639, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 641, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 642, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 631, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 634, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 637, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 640, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 643, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 644, False), "Currency")
End Sub

Private Sub InsertContain4Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 659, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 660, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 661, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 662, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 663, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 665, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 666, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 668, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 669, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 671, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 672, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 674, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 675, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 664, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 667, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 670, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 673, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 676, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 677, False), "Currency")
End Sub

Private Sub InsertContain5Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 692, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 693, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 694, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 695, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 696, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 698, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 699, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 701, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 702, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 704, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 705, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 707, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 708, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 697, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 700, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 703, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 706, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 709, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 710, False), "Currency")
End Sub

Private Sub InsertContain6Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 725, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 726, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 727, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 728, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 729, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 731, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 732, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 734, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 735, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 737, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 738, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 740, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 741, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 730, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 733, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 736, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 739, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 742, False)
    
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 743, False), "Currency")
End Sub

Private Sub InsertContain7Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 763, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 764, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 765, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 766, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 767, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 769, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 770, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 772, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 773, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 775, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 776, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 778, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 779, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 768, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 771, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 774, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 777, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 780, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 781, False), "Currency")
End Sub

Private Sub InsertContain8Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 801, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 802, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 803, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 804, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 805, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 807, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 808, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 810, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 811, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 813, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 814, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 816, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 817, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 806, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 809, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 812, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 815, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 818, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 819, False), "Currency")
End Sub

Private Sub InsertContain1Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 839, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 840, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 841, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 842, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 843, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 845, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 846, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 848, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 849, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 851, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 852, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 854, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 855, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 844, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 847, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 850, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 853, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 856, False)
                
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 857, False), "Currency")
End Sub

Private Sub InsertContain2Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 872, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 873, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 874, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 875, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 876, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 878, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 879, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 881, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 882, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 884, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 885, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 887, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 888, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 877, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 880, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 883, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 886, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 889, False)
                
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 890, False), "Currency")
End Sub

Private Sub InsertContain3Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 905, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 906, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 907, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 908, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 909, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 911, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 912, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 914, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 915, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 917, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 918, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 920, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 921, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 910, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 913, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 916, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 919, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 922, False)
                
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 923, False), "Currency")
End Sub

Private Sub InsertContain4Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 938, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 939, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 940, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 941, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 942, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 944, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 945, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 947, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 948, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 950, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 951, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 953, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 954, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 943, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 946, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 949, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 952, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 955, False)
                
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 956, False), "Currency")
End Sub

Private Sub InsertContain5Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 971, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 972, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 973, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 974, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 975, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 977, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 978, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 980, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 981, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 983, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 984, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 986, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 987, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 976, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 979, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 982, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 985, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 988, False)
                
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 989, False), "Currency")
End Sub

Private Sub InsertContain6Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1004, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1005, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1006, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1007, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1008, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1010, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1011, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1013, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1014, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1016, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1017, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1019, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1020, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1009, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1012, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1015, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1018, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1021, False)
                
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1022, False), "Currency")

End Sub

Private Sub InsertContain7Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1042, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1043, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1044, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1045, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1046, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1048, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1049, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1051, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1052, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1054, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1055, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1057, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1058, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1047, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1050, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1053, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1056, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1059, False)

            
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1060, False), "Currency")
End Sub

Private Sub InsertContain8Reductions()
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1080, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1081, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1082, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1083, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1084, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1086, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1087, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1089, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1090, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1092, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1093, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1095, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1096, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1085, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1088, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1091, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1094, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1097, False)

                
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1098, False), "Currency")
End Sub

Private Sub InsertContain1AutoInput()
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AEZ" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 839, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 840, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 841, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 842, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 843, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 845, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 846, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 848, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 849, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 851, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 852, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 854, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 855, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 844, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 847, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 850, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 853, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 856, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 857, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("UG" & rowNum).Value
        Select Case Vendor
        Case ""
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 41, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 42, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 43, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 44, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 45, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 46, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 47, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 48, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 49, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 50, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 51, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 52, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 53, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 58, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 59, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 60, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 61, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 62, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False), "Currency")
        Case Else
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 560, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 561, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 562, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 563, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 564, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 566, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 567, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 569, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 570, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 572, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 573, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 575, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 576, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 565, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 568, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 571, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 574, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 577, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 578, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain2AutoInput()
    'Insert Container 2 information from the ASR'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AGG" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 872, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 873, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 874, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 875, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 876, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 878, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 879, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 881, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 882, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 884, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 885, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 887, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 888, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 877, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 880, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 883, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 886, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 889, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 890, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("VN" & rowNum).Value
         Select Case Vendor
        Case ""
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 93, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 94, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 95, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 96, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 97, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 98, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 99, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 100, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 101, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 102, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 103, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 104, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 105, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 110, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 111, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 112, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 113, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 114, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False), "Currency")
        Case Else
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 593, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 594, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 595, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 596, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 597, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 599, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 600, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 602, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 603, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 605, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 606, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 608, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 609, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 598, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 601, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 604, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 607, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 610, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 611, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain3AutoInput()
'Insert Current Spend from Container 3'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AHN" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 905, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 906, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 907, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 908, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 909, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 911, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 912, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 914, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 915, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 917, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 918, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 920, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 921, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 910, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 913, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 916, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 919, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 922, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 923, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("WU" & rowNum).Value
        Select Case Vendor
        Case ""
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 145, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 146, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 147, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 148, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 149, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 150, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 151, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 152, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 153, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 154, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 155, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 156, False)
            txt4FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 157, False)
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 162, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 163, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 164, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 165, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 166, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False), "Currency")
        Case Else
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 626, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 627, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 628, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 629, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 630, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 632, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 633, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 635, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 636, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 638, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 639, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 641, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 642, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 631, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 634, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 637, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 640, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 643, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 644, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain4AutoInput()
'Insert Container 4 information from the ASR'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AIU" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 938, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 939, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 940, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 941, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 942, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 944, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 945, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 947, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 948, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 950, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 951, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 953, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 954, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 943, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 946, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 949, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 952, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 955, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 956, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("YB" & rowNum).Value
        Select Case Vendor
        Case ""
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 197, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 198, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 199, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 200, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 201, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 202, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 203, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 204, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 205, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 206, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 207, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 208, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 209, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 214, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 215, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 216, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 217, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 218, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False), "Currency")
        Case Else
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 659, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 660, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 661, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 662, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 663, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 665, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 666, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 668, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 669, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 671, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 672, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 674, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 675, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 664, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 667, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 670, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 673, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 676, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 677, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain5AutoInput()
'Insert Container 5 information from the ASR'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AKB" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 971, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 972, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 973, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 974, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 975, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 977, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 978, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 980, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 981, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 983, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 984, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 986, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 987, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 976, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 979, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 982, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 985, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 988, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 989, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("ZI" & rowNum).Value
        Select Case Vendor
        
        Case ""
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 249, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 250, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 251, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 252, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 253, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 254, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 255, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 256, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 257, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 258, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 259, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 260, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 261, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 266, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 267, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 268, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 269, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 270, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False), "Currency")
        Case Else
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 692, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 693, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 694, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 695, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 696, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 698, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 699, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 701, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 702, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 704, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 705, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 707, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 708, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 697, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 700, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 703, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 706, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 709, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 710, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain6AutoInput()
'Insert Container 6 information from the ASR'

    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("ALI" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1026, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1027, False)
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1004, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1005, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1006, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1007, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1008, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1010, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1011, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1013, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1014, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1016, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1017, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1019, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1020, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1009, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1012, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1015, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1018, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1021, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1022, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("AAP" & rowNum).Value
        Select Case Vendor
        Case ""
            txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 300, False)
            txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 301, False)
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 307, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 308, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 309, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 310, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 311, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 312, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 313, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 314, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 315, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 316, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 317, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 318, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 319, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 324, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 325, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 326, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 327, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 328, False)
           txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 320, False), "Currency")
        Case Else
            txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 746, False)
            txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 747, False)
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 725, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 726, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 727, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 728, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 729, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 731, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 732, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 734, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 735, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 737, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 738, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 740, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 741, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 730, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 733, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 736, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 739, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 742, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 743, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain7AutoInput()
    'Insert Container 7 information from the ASR'
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AMU" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1064, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1065, False)
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1042, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1043, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1044, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1045, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1046, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1048, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1049, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1051, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1052, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1054, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1055, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1057, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1058, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1047, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1050, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1053, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1056, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1059, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1060, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("ACB" & rowNum).Value
        Select Case Vendor
        Case ""
            txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 352, False)
            txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 353, False)
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 359, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 360, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 361, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 362, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 363, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 364, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 365, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 366, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 367, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 368, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 369, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 370, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 371, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 376, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 377, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 378, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 379, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 380, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 372, False), "Currency")
        Case Else
            txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 784, False)
            txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 785, False)
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 763, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 764, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 765, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 766, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 767, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 769, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 770, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 772, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 773, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 775, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 776, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 778, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 779, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 768, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 771, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 774, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 777, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 780, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 781, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain8AutoInput()
'Insert Container 8 information from the ASR'
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AOG" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1102, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1103, False)
        txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1080, False), "Currency")
        txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1081, False), "Currency")
        txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1082, False)
        txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1083, False)
        txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1084, False), "Currency")
        txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1086, False)
        txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1087, False), "Currency")
        txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1089, False)
        txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1090, False), "Currency")
        txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1092, False)
        txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1093, False), "Currency")
        txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1095, False)
        txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1096, False), "Currency")
        txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1085, False)
        txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1088, False)
        txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1091, False)
        txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1094, False)
        txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1097, False)
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1098, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("ADN" & rowNum).Value
        Select Case Vendor
        Case ""
            txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 404, False)
            txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 405, False)
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 411, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 412, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 413, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 414, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 415, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 416, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 417, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 418, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 419, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 420, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 421, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 422, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 423, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 428, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 429, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 430, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 431, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 432, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 424, False), "Currency")
        Case Else
            txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 822, False)
            txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 823, False)
            txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 801, False), "Currency")
            txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 802, False), "Currency")
            txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 803, False)
            txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 804, False)
            txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 805, False), "Currency")
            txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 807, False)
            txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 808, False), "Currency")
            txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 810, False)
            txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 811, False), "Currency")
            txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 813, False)
            txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 814, False), "Currency")
            txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 816, False)
            txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 817, False), "Currency")
            txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 806, False)
            txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 809, False)
            txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 812, False)
            txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 815, False)
            txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 818, False)
            txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 819, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain1Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1111, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1112, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1113, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1114, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1115, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1116, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1117, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1139, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1118, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1119, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1120, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1121, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1122, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1123, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1124, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1125, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1126, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1127, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1128, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1129, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1130, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1131, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1132, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1133, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1134, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1135, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1136, False), "Currency")
    
    'Initialize days of pickup to all false'
    chkMon1.Value = False
    chkTues1.Value = False
    chkWed1.Value = False
    chkThurs1.Value = False
    chkFri1.Value = False
    chkSat1.Value = False
    chkSun1.Value = False
    chkOnCall1.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1141, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon1.Value = True
            Else: chkMon1.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues1.Value = True
            Else: chkTues1.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed1.Value = True
            Else: chkWed1.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs1.Value = True
            Else: chkThurs1.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri1.Value = True
            Else: chkFri1.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat1.Value = True
            Else: chkSat1.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun1.Value = True
            Else: chkSun1.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall1.Value = True
            Else: chkOnCall1.Value = False
            End If
    End If
End Sub
Private Sub InsertContain2Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1144, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1145, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1146, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1147, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1148, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1149, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1150, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1172, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1151, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1152, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1153, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1154, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1155, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1156, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1157, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1158, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1159, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1160, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1161, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1162, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1163, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1164, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1165, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1166, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1167, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1168, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1169, False), "Currency")
        
    'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1174, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub

Private Sub InsertContain3Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1177, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1178, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1179, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1180, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1181, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1182, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1183, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1205, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1184, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1185, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1186, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1187, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1188, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1189, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1190, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1191, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1192, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1193, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1194, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1195, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1196, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1197, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1198, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1199, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1200, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1201, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1202, False), "Currency")
        
    'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1207, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub

Private Sub InsertContain4Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1210, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1211, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1212, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1213, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1214, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1215, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1216, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1238, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1217, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1218, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1219, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1220, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1221, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1222, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1223, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1224, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1225, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1226, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1227, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1228, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1229, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1230, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1231, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1232, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1233, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1234, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1235, False), "Currency")
        
    'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1240, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub

Private Sub InsertContain5Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1243, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1244, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1245, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1246, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1247, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1248, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1249, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1271, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1250, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1251, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1252, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1253, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1254, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1255, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1256, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1257, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1258, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1259, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1260, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1261, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1262, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1263, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1264, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1265, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1266, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1267, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1268, False), "Currency")
        
    'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1273, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub

Private Sub InsertContain6Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1276, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1277, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1278, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1279, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1280, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1281, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1282, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1304, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1283, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1284, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1285, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1286, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1287, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1288, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1289, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1290, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1291, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1292, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1293, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1294, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1295, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1296, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1297, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1298, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1299, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1300, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1301, False), "Currency")
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1307, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1308, False)
        
    'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1306, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub
Private Sub InsertContain7Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1314, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1315, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1316, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1317, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1318, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1319, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1320, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1342, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1321, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1322, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1323, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1324, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1325, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1326, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1327, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1328, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1329, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1330, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1331, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1332, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1333, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1334, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1335, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1336, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1337, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1338, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1339, False), "Currency")
        
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1345, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1346, False)
    'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1344, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub
Private Sub InsertContain8Switch()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Vendor Switch'
    txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1352, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1353, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1354, False)
    cmb4Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1355, False)
    cmb4TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1356, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1357, False)
    txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1358, False)
    cmb4Contract.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1380, False)
    
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1359, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1360, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1361, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1362, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1363, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1364, False)
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1365, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1366, False), "Currency")
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1367, False)
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1368, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1369, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1370, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1371, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1372, False), "Currency")
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1373, False)
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1374, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1375, False), "Currency")
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1376, False)
                
    txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1377, False), "Currency")
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1383, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1384, False)
    
        
    'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1382, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub

Private Sub btnClose_Click()
'User clicked Close Form button'
Dim msg As Integer
If cmbContainers.Value <> "- Select a Container -" Then
    Dim closer As Integer
    'Ask if user wants to save'
    closer = MsgBox("You are now closing this form, do you wish to save?", vbYesNoCancel, "Close Vendor Switch Editor")
        'If No'
        If closer = 7 Then
        Unload frmVendorSwitch
        'If Yes'
        ElseIf closer = 6 Then
            Call btnSave_Click
            Unload frmVendorSwitch
            ThisWorkbook.Save
            'If Cancel'
        ElseIf closer = 2 Then Exit Sub
    End If
Else:
    Unload frmVendorSwitch
End If
End Sub

Private Sub btnSave_Click()

Dim containNum As Integer

    'Find out which Container we are updating then call corresponding module for saving'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        Call SaveCont1(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        Call SaveCont2(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        Call SaveCont3(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        Call SaveCont4(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        Call SaveCont5(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        Call SaveCont6(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        Call SaveCont7(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        Call SaveCont8(rowNum)
    End If
         
End Sub

Private Sub SaveCont1(rowNum As Integer)
    'Save Container 1 information'
                
    Worksheets("ASR").Range("APS" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("APT" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("APU" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("APV" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("APW" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("APX" & rowNum).Value = txt4NumPickups.Value
                
    Worksheets("ASR").Range("APZ" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("AQA" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("AQB" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("AQC" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("AQD" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("AQE" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("AQF" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("AQG" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("AQH" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("AQI" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("AQJ" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("AQK" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("AQL" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("AQM" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("AQN" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("AQO" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("AQP" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("AQQ" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("AQU" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("AQX" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BOP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOP" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BOQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOQ" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BOR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOR" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BOS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOS" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BOT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOT" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BOU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOU" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BOV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOV" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BOW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOW" & rowNum).Value = ""
    End If
End Sub
Private Sub SaveCont2(rowNum As Integer)
    'Save Container 2 information'
                
    Worksheets("ASR").Range("AQZ" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("ARA" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("ARB" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("ARC" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("ARD" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("ARE" & rowNum).Value = txt4NumPickups.Value
                
    Worksheets("ASR").Range("ARG" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("ARH" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("ARI" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("ARJ" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("ARK" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("ARL" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("ARM" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("ARN" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("ARO" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("ARP" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("ARQ" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("ARR" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("ARS" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("ART" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("ARU" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("ARV" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("ARW" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("ARX" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("ASB" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("ASE" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BOZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOZ" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BPA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPA" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BPB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPB" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BPC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPC" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BPD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPD" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BPE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPE" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BPF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPF" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BPG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPG" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont3(rowNum As Integer)
    'Save Container 3 information'
                
    Worksheets("ASR").Range("ASG" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("ASH" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("ASI" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("ASJ" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("ASK" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("ASL" & rowNum).Value = txt4NumPickups.Value
                
    Worksheets("ASR").Range("ASN" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("ASO" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("ASP" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("ASQ" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("ASR" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("AST" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("ASU" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("ASV" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("ASW" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("ASX" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("ASY" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("ASZ" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("ATA" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("ATB" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("ATC" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("ATD" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("ATE" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("ATF" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("ATI" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("ATL" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BPJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPJ" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BPK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPK" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BPL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPL" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BPM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPM" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BPN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPN" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BPO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPO" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BPP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPP" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BPQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPQ" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont4(rowNum As Integer)
    'Save Container 4 information'
                
    Worksheets("ASR").Range("ATN" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("ATO" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("ATP" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("ATQ" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("ATR" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("ATS" & rowNum).Value = txt4NumPickups.Value
                
    Worksheets("ASR").Range("ATU" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("ATV" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("ATW" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("ATX" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("ATY" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("ATZ" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("AUA" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("AUB" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("AUC" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("AUD" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("AUE" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("AUF" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("AUG" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("AUH" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("AUI" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("AUJ" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("AUK" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("AUL" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("AUP" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("AUS" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BPT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPT" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BPU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPU" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BPV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPV" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BPW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPW" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BPX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPX" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BPY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPY" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BPZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BPZ" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BQA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQA" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont5(rowNum As Integer)
    'Save Container 5 information'
                
    Worksheets("ASR").Range("AUU" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("AUV" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("AUW" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("AUX" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("AUY" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("AUZ" & rowNum).Value = txt4NumPickups.Value
                
    Worksheets("ASR").Range("AVB" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("AVC" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("AVD" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("AVE" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("AVF" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("AVG" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("AVH" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("AVI" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("AVJ" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("AVK" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("AVL" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("AVM" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("AVN" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("AVO" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("AVP" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("AVQ" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("AVR" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("AVS" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("AVW" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("AVZ" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BQD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQD" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BQE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQE" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BQF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQF" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BQG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQG" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BQH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQH" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BQI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQI" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BQJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQJ" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BQK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQK" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont6(rowNum As Integer)
    'Save Container 6 information'
                
    Worksheets("ASR").Range("AWB" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("AWC" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("AWD" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("AWE" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("AWF" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("AWG" & rowNum).Value = txt4NumPickups.Value
    Worksheets("ASR").Range("AXG" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("AXH" & rowNum).Value = txt2FlatDisposal.Value
                
    Worksheets("ASR").Range("AWI" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("AWJ" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("AWK" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("AWL" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("AWM" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("AWN" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("AWO" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("AWP" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("AWQ" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("AWR" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("AWS" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("AWT" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("AWU" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("AWV" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("AWW" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("AWX" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("AWY" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("AWZ" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("AXD" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("AXI" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BQN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQN" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BQO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQO" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BQP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQP" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BQQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQQ" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BQR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQR" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BQS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQS" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BQT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQT" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BQU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQU" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont7(rowNum As Integer)
    'Save Container 7 information'
                
    Worksheets("ASR").Range("AXN" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("AXO" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("AXP" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("AXQ" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("AXR" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("AXS" & rowNum).Value = txt4NumPickups.Value
    Worksheets("ASR").Range("AYS" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("AYT" & rowNum).Value = txt2FlatDisposal.Value
                
    Worksheets("ASR").Range("AXU" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("AXV" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("AXW" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("AXX" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("AXY" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("AXZ" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("AYA" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("AYB" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("AYC" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("AYD" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("AYE" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("AYF" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("AYG" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("AYH" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("AYI" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("AYJ" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("AYK" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("AYL" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("AYP" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("AYU" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BQX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQX" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BQY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQY" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BQZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BQZ" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BRA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRA" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BRB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRB" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BRC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRC" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BRD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRD" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BRE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRE" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont8(rowNum As Integer)
    'Save Container 8 information'
                
    Worksheets("ASR").Range("AYZ" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("AZA" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("AZB" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("AZC" & rowNum).Value = cmb4Mes.Text
    Worksheets("ASR").Range("AZD" & rowNum).Value = cmb4TypeWaste.Text
    Worksheets("ASR").Range("AZE" & rowNum).Value = txt4NumPickups.Value
    Worksheets("ASR").Range("BAE" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("BAF" & rowNum).Value = txt2FlatDisposal.Value
                
    Worksheets("ASR").Range("AZG" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("AZH" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("AZI" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("AZJ" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("AZK" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("AZL" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("AZM" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("AZN" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("AZO" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("AZP" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("AZQ" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("AZR" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("AZS" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("AZT" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("AZU" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("AZV" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("AZW" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("AZX" & rowNum).Value = txt4Rate5.Value
    Worksheets("ASR").Range("BAB" & rowNum).Value = cmb4Contract.Text
    Worksheets("ASR").Range("BAG" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BRH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRH" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BRI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRI" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BRJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRJ" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BRK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRK" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BRL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRL" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BRM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRM" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BRN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRN" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BRO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRO" & rowNum).Value = ""
    End If
End Sub


